Fortran where-elsewhere

where (a < 3)
  b = 1
elsewhere (a > 5)
  b = 2
elsewhere
  b = 3
end where
! 同样，也可以是嵌套的
name: where (a < 5)
  b = a
end where name